perm filename COMP1.PAL[AL,HE] blob
sn#528520 filedate 1980-08-09 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 .TITLE Pseudo-code
C00004 ENDMK
C⊗;
;.TITLE Pseudo-code
;File that requires all the compiled files.
;Overlaid on top of the interpreter.
NEW == 0 ;0 for old, 1 for new
;Only need to insert this during first pass
.IF1
.IFNZ NEW
.PRINT /Experimental version - for use with ALX.SAV
/
.ENDC
.MACRO MAKEOP CNAME, ANAME ;Compiler name, Address name
XX CNAME
.ENDM
.IFNZ NEW
.INSRT ALHEAD.NEW[AL,HE]
.INSRT INTOPS.NEW[AL,HE]
.IFF
.INSRT ALHEAD.PAL[AL,HE]
.INSRT INTOPS.PAL[AL,HE]
.ENDC
.MACRO ASCIE STR
.ASCIZ ∃STR∃
.EVEN
.ENDM
;The interpreter operation table
.ENDC
.OFFSET -160000
PUTLOC PCDVER, PCVERSION
PUTLOC HIADDR, TOPADD
. = PCODE ;Beginning of instruction space
; This file is followed by the .ALP, .ALT, & .ALV files. Then COMP2.PAL[AL,HE]